home *** CD-ROM | disk | FTP | other *** search
/ Delphi Magazine Collection 2001 / Delphi Magazine Collection 20001 (2001).iso / DISKS / Issue66 / SQLComp / Demo / UFmMain.pas < prev   
Encoding:
Pascal/Delphi Source File  |  2000-09-20  |  1.3 KB  |  66 lines
  1. unit UFmMain;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   StdCtrls, Db, DMSQLCriteria, DMSQLBase, Grids, DBGrids, ExtCtrls, DBTables,
  8.   DMSQLBDE;
  9.  
  10. type
  11.   TFmMain = class(TForm)
  12.     EtFullName: TDMSQLEdit;
  13.     DsResult: TDataSource;
  14.     EtHireDateFrom: TDMSQLEdit;
  15.     PbBuildSQL: TButton;
  16.     EtEmpNo: TDMSQLEdit;
  17.     QyResult: TDMSQLQuery;
  18.     GdResult: TDBGrid;
  19.     Label1: TLabel;
  20.     Label2: TLabel;
  21.     Label3: TLabel;
  22.     EtHireDateTo: TDMSQLEdit;
  23.     EtSQL: TMemo;
  24.     PbClear: TButton;
  25.     Label4: TLabel;
  26.     Label5: TLabel;
  27.     EtSalaryFrom: TDMSQLEdit;
  28.     Label6: TLabel;
  29.     EtSalaryTo: TDMSQLEdit;
  30.     EtDeptNo: TDMSQLEdit;
  31.     Label7: TLabel;
  32.     DB: TDatabase;
  33.     Bevel1: TBevel;
  34.     LbJobCode: TDMSQLListBox;
  35.     Label8: TLabel;
  36.     procedure PbBuildSQLClick(Sender: TObject);
  37.     procedure PbClearClick(Sender: TObject);
  38.   private
  39.     { Private declarations }
  40.   public
  41.     { Public declarations }
  42.   end;
  43.  
  44. var
  45.   FmMain: TFmMain;
  46.  
  47. implementation
  48.  
  49. {$R *.DFM}
  50.  
  51. procedure TFmMain.PbBuildSQLClick(Sender: TObject);
  52. begin
  53.   try
  54.     QyResult.Implementor.BuildSQL(Self);
  55.   finally
  56.     EtSQL.Lines := QyResult.SQL;
  57.   end;
  58. end;
  59.  
  60. procedure TFmMain.PbClearClick(Sender: TObject);
  61. begin
  62.   QyResult.Implementor.ClearCriteria(Self);
  63. end;
  64.  
  65. end.
  66.